home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / phyzzx / phyzzx.local < prev    next >
Text File  |  1992-08-26  |  4KB  |  109 lines
  1. %
  2. %  This is the PHYZZX.LOCAL file.
  3. %  It contains local, ie. site-dependent macros.
  4. %
  5. %  This version of the file is for use at SLAC only.
  6. %  Do not use it as is at other sites -- it is distributed only
  7. %  to provide an example of macros you may want to use at your site.
  8. %
  9. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  10. %
  11. \def\slacpub{\afterassignment\slacp@b\toks@}
  12. \def\slacp@b{\edef\n@xt{\Pubnum={SLAC--PUB--\the\toks@}}\n@xt}
  13. \let\pubnum=\slacpub
  14. %
  15. \expandafter\ifx\csname eightrm\endcsname\relax
  16.     \let\eightrm=\ninerm \let\eightbf=\ninebf \fi
  17. %
  18. \def\memohead{\hrule height\z@ \kern -0.5in
  19.     \line{\quad\fourteenrm SLAC MEMORANDUM\hfil \twelverm\the\date\quad}}
  20. \def\memorule{\par \medskip \hrule height 0.5pt \kern 1.5pt
  21.    \hrule height 0.5pt \medskip}
  22. %
  23. \def\SLACHEAD{\setbox0=\vtop{\baselineskip=10pt
  24.      \ialign{\eightrm ##\hfil\cr
  25.         \slacbin\cr
  26.         P.~O.~Box 4349\cr
  27.         Stanford, CA 94309\cropen{1\jot}
  28.         \slacphone\cr }}%
  29.    \setbox2=\hbox{\caps Stanford Linear Accelerator Center}%
  30.    \hrule height \z@ \kern -0.5in
  31.    \vbox to 0pt{\vss\centerline{\seventeenrm STANFORD UNIVERSITY}}
  32.    \vbox{} \medskip
  33.    \line{\hbox to 0.7\hsize{\hss \lower 10pt \box2 \hfill }\hfil
  34.          \hbox to 0.25\hsize{\box0 \hfil }}\medskip }
  35. \let\letterhead=\SLACHEAD
  36. %
  37. \FromAddress={\crcr \slacbin \cr
  38.     P.\ O.\ Box 4349\cr Stanford, California 94309\cr }
  39. %
  40. \def\slacbin{SLAC\expandafter\ifx\csname binno\endcsname\relax
  41.                              \else , Bin \binno \fi }
  42. \def\slacphone{(415) 926--\slacext}
  43. \def\slacext{3300}
  44. %
  45. \def\doeack{\foot{Work supported by the Department of Energy,
  46.       contract DE--AC03--76SF00515.}}
  47. %
  48. \VOFFSET=33pt
  49. \papersize
  50. %
  51. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  52. %  Now comes the graphic package.
  53. %  This version is rather primitive
  54. %
  55. \newwrite\figscalewrite
  56. \newif\iffigscaleopen
  57. \newif\ifgrayscale
  58. \newif\ifreadyfile
  59. \def\picturedefault{\grayscalefalse \readyfilefalse
  60.     \gdef\ready{\readyfiletrue}\gdef\gray{\ready\grayscaletrue}}
  61. %
  62. \def\parsefilename{\ifreadyfile \else
  63.     \iffigscaleopen \else \gl@bal\figscaleopentrue
  64.        \immediate\openout\figscalewrite=\jobname.scalecon \fi
  65.     \toks0={ }\immediate\write\figscalewrite{%
  66.        \the\p@cwd \the\toks0 \the\p@cht \the\toks0 \the\picfilename }%
  67.     \expandafter\p@rse \the\picfilename..\endp@rse \fi }
  68. %
  69. \def\p@rse#1.#2.#3\endp@rse{%
  70.    \if*#3*\dop@rse #1.1..\else \if.#3\dop@rse #1.1..\else
  71.                                 \dop@rse #1.#3\fi \fi
  72.    \expandafter\picfilename\expandafter{\n@xt}}
  73. \def\dop@rse#1.#2..{\count255=#2 \ifnum\count255<1 \count255=1 \fi
  74.    \ifnum\count255<10  \edef\n@xt{#1.PICT00\the\count255}\else
  75.    \ifnum\count255<100 \edef\n@xt{#1.PICT0\the\count255}\else
  76.                        \edef\n@xt{#1.PICT\the\count255}\fi\fi }
  77. %
  78. \def\redopicturebox{\edef\picturedefinition{\ifgrayscale
  79.      \special{insert(\the\picfilename)}\else
  80.      \special{mergeug(\the\picfilename)}\fi }}
  81. %
  82. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  83. % Few miscellaneous macros
  84. %
  85. \let\us=\undertext
  86. \let\rule=\memorule
  87. \let\eqnalign=\eqname
  88. %
  89. \def\pri{^{\, \prime }}
  90. \def\prii{^{\, \prime\, \prime }}
  91. \def\priii{^{\, \prime\, \prime\, \prime }}
  92. \def\epem{{e^+e^-}}
  93. %%
  94. \def\larrow{\leftarrow}
  95. \def\rarrow{\rightarrow }
  96. \def\uarrow{\uparrow }
  97. \def\darrow{\downarrow }
  98. \def\dblarrow{\doublearrow }
  99. \def\longvec{\overrightarrow }
  100. \def\wtilde{\widetilde }
  101. %%
  102. \def\xplus{\becomes{x\rarrow{+\infty}}}
  103. \def\xminus{\becomes{x\rarrow{-\infty}}}
  104. \def\xxx{\becomes{x\rarrow\infty}}
  105. %%
  106. \def\boxit#1{\vbox{\hrule\hbox{\vrule\kern3pt
  107. \vbox{\kern3pt#1\kern3pt}\kern3pt\vrule}\hrule}}
  108. %%
  109.